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ABSTRACT 

AUTO:    An  Automaton  Simulator,    a  program  implemented  under 
IBM  360/67  TSS,    is   capable  of  simulating    any  user-defined  deter- 
ministic or  nondete  rministic  finite  automaton,    pushdown  automaton, 
Turing  machine  or  procedural  Turing  machine.      The  simulation  is 
achieved  through  the  use  of  two  pushdown  stacks  and  a  single  finite 
control.      This  approach  provides  efficient  simulation  and  avoids  the 
programming  duplication  required  to  simulate  each  type  of  automata 
separately.      Interactive  capabilities  make  the   system  particularly 
well  suited  to  the  online  design,  modification,    and  testing  of  user- 
defined  automata. 
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I.       INTRODUCTION 

The  objective  of  this   research  was  to  devise  an  aid  for  the 
teaching  of  formal  languages  and  automata  theory.      The  system 
developed  allows  the  student  to  design,    test,    and  change  automata  in 
an  interactive  manner.     This  process  permits  the  user  to  observe  the 
step  by  step  operation  of  a  defined  automaton  and  if  desired,    to 
correct  or  alter  its  operation.      This  eliminates  the  need  for  lengthy 
and  tedious  hand  simulations. 

AUTO:    An  Automaton  Simulator,    can  simulate  the  operation  of 
deterministic  and  nondeterministic  finite  automata,    pushdown  auto- 
mata,   Turing  machines,    and  procedural  Turing  machines.      Since  the 
system  is   capable  of  simulating  several  different  types  of  automata 
with  only  one  interface,    it  eliminates  the  duplication  of  effort  required 
by  separate  simulations  of  each  type  of  automata. 


II.       SYSTEM  DESCRIPTION 

AUTO  is  a  deterministic  automaton  which  can,    by  performing 
transformations  on  the   rules  of  any  given  automaton,    simulate  that 
automaton.     Since  each  procedure  performed  by  any  automaton  can 
be  performed  by  a  Turing  machine,    then  theoretically  it  is  only 
necessary  to  simulate  a  Turing  machine  in  order  to  have  the  cap- 
ability of  simulating  any  automaton.      The  simulation  of  a  Turing 
machine  can  be  done  by  a  deterministic,    two  pushdown  machine.      It 
is  easily  seen  that  those  symbols  to  the  left  of  the  head  of  the  Turing 
machine  being  simulated  can  be   stored  on  one  pushdown  list,    while 
the  symbols  on  the  right  of  the  head  can  be  placed  on  the  other  push- 
down list.     AUTO,    using  two  pushdowns,    can  also  simulate  other 
types  of  automata  more  effectively  then  the  Turing  machine,    since 
when  conducting  a  simulation,    Turing  machines  often  carry  out  their 
computations  most  inefficiently. 

AUTO  is  designed  so  that  at  all  times  the  two  pushdown  simulator 
remains  invisible  to  the  user.     The  user  is  unaware  that  he  is  using 
a  simulator,    but  feels   rather  that  he  is  interacting  directly  with  the 
automaton  which  he  has  created.      This  feature  is  maintained  during 
the  input,    operation,    and  output  phases  of  the   simulation.      The  ad- 
dition of  new  interfaces  or  modification  of  the  present  ones  would 
allow  the  simulation  of  other  types  of  automata,    such  as  two-way 
tape  Turing  machines  or  the  two-stack  pushdown  automata,    of  which 
AUTO  is  an  example. 


A.      THE  SIMULATION 

AUTO  is   capable  of  simulating  any  given  automaton  by  the  use 
of  two  pushdown  stacks  and  a  single  finite  control.      The  internal 
transformational  rules  upon  which  AUTO  operates  have  a  canonical 
form  distinct  from  that  of  any  other  automaton.      The  canonical  form 
of  the  transformational  rules  by  which  AUTO  operates  is  of  the 
form 

(Q.,  L.,  R.)  -  (Q.L.,  R.)      where 
11       i  J    J       J 


Q. 

i 

L. 
l 


s  a  state  of  finite  control. 

s  the  top  symbol  of  the  left  pushdown. 


R.  is  the  top  symbol  of  the  right  pushdown. 

Q.  is  the  new  state  of  finite  control. 
J 

L.  is  the   symbol(s)  which  replace  L.. 
R.  is  the   symbol  which  replaces  R.. 

The  left  hand  side  of  the  rule   represents  an  initial  configuration  and 
the  right  hand  side,    the  configuration  after  the  indicated  transforma- 
tion is  performed. 

Since  none  of  the  machines  or   systems  under  consideration  have 
rules  exactly  of  this  form,    all  inp\it  rules  must  first  be  converted 
into  the  above  canonical  form  for  AUTO.      Those  items  of  the  above 
configuration  which  have  no  exact  counterpart  in  the   rules  of  the 
system  being  simulated  are  filled  in  with  dummy  arguments  by  AUTO. 
These  arguments  vary  according  to  the  system  which  is  being  simula- 
ted and  will  indicate  to  AUTO  the  proper  action  to  take  in  the  simula- 
tion.    An  example  of  a  rule  for  a  finite  automaton  might  be 


(Qpa)  -  (Q2). 


The  resulting  rule  in  AUTO  would  be 

(QjJ.a)  -  (Q2,#,&) 

which  would  indicate  that  the  state  of  the  finite  control  is  changed 
from  Q,   to  Q~;  the  top  of  the  left  pushdown  which  is  ignored  for  a 
finite  automaton  is  left  unchanged;  and  the  symbol  on  the  top  of  the 
right  pushdown  is  popped. 

Similarly,    transformations  are  made  upon  the  rules  of  the  push- 
down automaton,    Turing  machine,    and  procedural  Turing  machine  to 
conform  to  the  canonical  format  used  by  AUTO.      In  so  doing,    the 
system  preempts  the  use  of  certain  symbols  for  system  usage.      The 
symbols,    '#',    '%',    and    '&'  may  not  be  used  as   symbols  of  the  user's 
input  or  pushdown  alphabet.      The   '  &:'  may  be  used  however,    in  any 
transformational  rule  when  reference  is  made  to  the  null  or  empty 
string. 

B.      THE  SIMULATION 

All  simulations  have  an  identical  initialization  procedure.      First, 
delimiters  are  placed  on  top  of  both  stacks  for  use  as  end  of  string, 
end  of  pushdown,    or  end  of  tape   symbols.      The  input  string  is  then 
placed  on  top  of  the  right  stack  and  the  finite  control  is   set  to  the 
start  state.     Upon  completion  of  this  initialization,    the  procedure 
will  vary  according  to  the  type  of  machine  under  consideration. 

1.     The  Finite  Automation  (FA) 

The  left  stack  is  not  used  in  this   simulation.      Instead  of  a 
left  to  right  scan  of  the  normal  FA,   AUTO  does  a  top  to  bottom  scan, 
by  continually  popping  off  the  top  symbol  of  the  input  stack  (i.  e.  , 
right  pushdown),    while  following  the  general  procedural  rules  for 


the  operation  of  a  finite  automaton.     Upon  completion  of  processing 
of  the  last  input  character,    the  finite  control  will  be  in  some  state, 
Q.,    which  is  then  compared  against  a  list  of  final  states.      On  the 
basis  of  this  test,    the  input  string  will  either  be  accepted  or  re- 
jected. 

2.      The  Pushdown  Automaton  (PDA) 

There  are  two  types  of  pushdown  automata;  the  final  state 
PDA  and  the  empty  store  PDA.     AUTO  is  capable  of  simulating 
either  of  these  types.     The  start  symbol  is  placed  on  top  of  the  left 
stack.      Input  symbols  are  popped  one  at  a  time  from  the   right  stack 
while  the  action  indicated  by  the  rules  is  performed  upon  the  left 
pushdown.     An  exception  to  this  procedure  is  the   case  of  epsilon 
rules,    which  permit  the  finite  control  to  change  state  and  the  left 
pushdown  to  be  manipulated  without  popping  the  top  of  the  input  stack. 
The  problem  of  avoiding  an  infinite  loop  when  processing  a  PDA  with 
epsilon  rules  is  discussed  in  a  later  section  dealing  with  halting  the 
simulation. 

In  all  cases  where  complete  processing  of  the  input  string 
is  attained,    i.e.  ,    the  initialization  delimiter  is  encountered,    the 
next  action  will  be  determined  by  the  type  of  PDA  being  simulated. 
For  the  final  state  PDA,    action  similar  to  that  of  the  FA  will  be 
taken.      If  the  automaton  is  an  empty  store  PDA,    the  top  of  the  left 
stack  is  examined.      If  the  top  symbol  is  the  delimiter  originally 
placed  on  the   stack  during  initialization,    then  the  pushdown  is  con- 
sidered to  be  empty  and  hence  the   string  would  be  accepted,    other- 
wise the  string  would  be   rejected. 


3.  The  Turing  Machine   (TM) 

The  input  tape  for  the  TM  is  not  followed  by  a  delimiter,    but 
rather  by  an  unbounded  string  of  blanks,    which  are  added  as  needed 
as  the  tape  head  moves  to  the  right.     AUTO  always  considers  the 
tape  head  to  be  at  the  top  of  the   right  (input)  stack.      For  a  move   right, 
the  top  of  the   right  stack  is  transformed  according  to  the  applicable 
rule,    then  popped  off  the  right  stack  and  pushed  on  top  of  the  left 
pushdown.      For  a  left  move,    the  process  is   reversed  so  that  the  top 
of  the  left  stack  is  popped  and  then  pushed  down  on  top  of  the   symbol 
on  the  right  stack  which  had  just  been  processed.     Before  a  left  move 
is  attempted,    the  top  symbol  of  the  left  pushdown  is  examined  and  if 
it  is  the  initialization  delimiter,    then  a  move  left  would  be  equivalent 
to  having  the  tape  head  move  off  the  end  of  the  tape.     Since  this  is 
not  permissable  in  a  TM,    the  input  string  would  be  rejected. 

After  each  move  has  been  processed,    a  check  is  made  for 
final  state  acceptance.     If  a  final  state  has  not  been  reached  the 
processing  continues  until  either  a  final  state  is  obtained  or  a  partic- 
ular configuration  is   reached  for  which  there  is  no  applicable   rule. 
This  latter  case  would  terminate  processing  and  cause  the  input 
string  to  be  rejected. 

4.  The  Procedural  Turing  Machine  (PTM) 

The  PTM  functions  according  to  the  same  procedures  as  the 
TM  except  that  the  PTM  does  not  accept  or  reject  input  strings. 
Rather  the  PTM  continues  to  operate  until  there  are  no  rules  which 
apply  to  a  given  configuration  and  then  the  tape  at  that  stage  will  be 
output  as  the  result  of  the  procedure.     An  example  is  the  PTM  demon- 
strated in  the  SAMPLE  TERMINAL  SESSION.      The  rules  of  this  PTM 


define  unary  multiplication.      The  number  3,    represented  as   111,    is 
multiplied  by  2,    represented  as   11.      The  input  is  defined  as  the 
string  1 1 1  *1 1  *  and  the  final  output  is  XXX*1 1*11 1 11 1,    whe  re   111111 
represents  the  answer  6. 

C.      NONDETERMINISTIC  AUTOMATA 

The  nondeterministic  automaton  can  be  represented  as  a  tree- 
like structure  where  each  node   represents  a  particular  configuration 
(lefthand  side  of  a  canonical  rule)  and  the  edges  represent  the  allow- 
able transformations  from  one  configuration  to  another.      If  any  path 
terminates  in  an  acceptable  final  configu ration,    then  the  input  string 
is  accepted.     To  avoid  a  fruitless  search  for  such  a  path,    the  tree  is 
developed  in  breath  first,    then  in  depth.      This  approach  determines 
the  shortest  possible  acceptance  path,    as  well  as  avoiding  a  possible 
infinite  loop  along  some  particular  path. 

The  program  starts  with  the  input  string,    start  state,    and  start 
symbol,    if  any,    making  up  the  initial  configuration  for  the   root  node. 
The  listing  of  the  rules  is   searched  for  rules  which  are  applicable; 
the  transformation  is  then  performed  and  a  node  allocated  for  each 
such  rule.     The  nodes  are  developed  and  allocated,    conceptually, 
from  left  to  right.     Each  new  node  contains  a  pointer  to  its  predeces- 
sor node  and  at  each  level  every  node  has  a  pointer  to  the  next  node 
developed  at  that  level.     The  last  (rightmost)  node  at  each  level 
contains  a  pointer  to  the  first  (leftmost)  node  of  the  next  level.     The 
following  example  will  illustrate  the  development  of  the  tree. 

The  nondeterministic  finite  automaton  picture  in  figure   1  accepts 
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consecutive   l's.      The  tree  developed  by  this  automaton  while  proceS' 
sing  the  input  string,    0100,    is  shown  in  figure  2. 


0,  1 


Start 


0,    1 


Final 


Figure   1.     State  Diagram 

As  each  node  is  created  a  check  is  made  to  determine  if  a 
condition  of  acceptance  has  been  reached.     If  so,    the  tree  is  tra- 
versed from  the   solution  node  to  the  root  by  following  the  predecessor 

pointers  (indicated  by >-     in  figure  2).     As  the  tree  is  traversed, 

the  predecessor  pointers  are  reversed  so  that  when  the   root  node  is 
reached  there  will  be  a  direct  path  to  the  solution  node. 

Whereas,    for  deterministic  automata,    the  printout  is  given  as 
each  step  is  performed,    this  is  not  possible  when  dealing  with  non- 
deterministic  automata,    since  it  is  unknown  at  the  time  a  node  is 
created  whether  or  not  it  lies  on  the  solution  path.     Therefore,    the 
user  may  select  one  of  three  output  options:     no  trace,    a  trace  only 
if  the  string  is  accepted,    or  a  printout  of  each  node  as  it  is  allocated. 

D.      HALTING  THE  SIMULATION 

An  important  consideration  in  the  operation  of  AUTO  is  the  deter- 
mination of  when  to  halt  the  processing  of  any  particular  string.     The 
problem  differs  for  deterministic  and  nondete  rministic  automaton. 
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For  the  deterministic  finite  automaton  and  pushdown  automaton 
without  epsilon  rules,    any  input  string  is  processed  until  there  is  no 
applicable   rule  which  matches  the   configuration,    or  until  the  end  of 
the   string  has  been  reached.      For  the  deterministic  TM,    PTM,    or 
PDA  with  epsilon  rules  it  is  possible  to  have  rules  which  cause  the 
machine  to  go  into  an  infinite  loop.      For  the  TM  or  the   PTM,    the 
tape  head  may  move  left  and  right  alternatively  without  ever  reaching 
the  end  of  the  tape  or  running  out  of  applicable   rules.     The  PDA  with 
epsilon  rules  could  add  symbols  indefinitely  to  the  left  stack  without 
ever  popping  any  symbols  from  the  input  stack.      Therefore,    AUTO 
requires  the  user  to  set  a  maximum  number  of  allowable  steps  to  be 
performed  by  an  deterministic  automaton. 

The  halting  situation  for  the  nondeterministic  TM,    PTM,    or  PDA 
with  epsilon  rules  is  basically  the   same  as  for  the  deterministic  case. 
However,    for  all  nondeterministic  automata  the  tree  structure  grows 
in  breadth  rapidly  in  relation  to  the  number  of  rules  which  are  non- 
deterministic.     Since  it  is  quite  possible  for  the  number  of  nodes  to 
increase  almost  without  bound  even  at  a  fairly  shallow  depth  in  the 
tree,    the  user  must  declare  the  maximum  number  of  nodes  to  be 
allocated. 

If  the  number  of  steps  or  nodes   set  by  the  user  proves  to  be 
insufficient  in  a  given  case,    AUTO  permits  the  user  to  increase  the 
maximum  and  have  the   system  continue  with  the  simulation. 
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III.       CONCLUSIONS 

AUTO  has  effectively  simulated  deterministic  and  nondetermin- 
istic  finite  automata,    pushdown  automata,    Turing  machines,    and 
procedural  Turing  machines.      During  all  phases  of  interaction,    the 
system  acts  as  the  machine  defined  by  the  user.     The  various  options 
and  capabilities  of  AUTO  are  demonstrated  in  the   sample  terminal 
session  following  Appendix  A. 

Automata  students  introduced  to  AUTO  reported  that  the  inter- 
active system  acted  as  a  valuable  learning  aid.      The   students  found 
that  they  could  qtiickly  have  their  automata  performing  as  desired, 
because  they  were  able  to  watch  the  step  by  step  operation  of  an 
automaton,    easily  change  its  definition,    and  retest  input  strings. 

A  modified  version  of  AUTO  is  feasible  which  would  be   suitable 
for  batch  operation.     Although  the  interactive  features  would  be 
sacrificed,    this  version  would  allow  for  quick  testing  and  printout 
of  several  automata.     After  reviewing  the  output,    the  user  could  log 
onto  the  interactive  version  of  AUTO,    make  corrections  and  retest 
the  automata. 

As  presently  designed,    AUTO  could  be  a  valuable  aid  in  the   study 
of  automata  theory  and  in  conjunction  with  a  batch  processing  version, 
could  provide  the  user  with  a  versatile  system  for  designing  and 
testing  automata. 
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APPENDIX  A 
USER'S  MANUAL  FOR  AUTO 

To  access  AUTO,    the  user  logs  on  to  the  time  sharing  system  in 
the  usual  manner  and  then  executes  the  command,    'AUTO1.     The 
system  responses,    permissible  user  responses,    and  default  options 
are  given  below  (System  responses  are  given  in  UPPER  CASE).     All 
questions  followed  by  '(Y  OR  N)'  imply  the  user  is  to  enter  the  single 
character  'y'  for  'yes1   or   'n'  for  'no'. 


1.       TYPE  OF  MACHINE? 

Response  Meaning 

fa  finite  automaton 


pda  pushdown  automaton 

tm  Turing  machine 

ptm  procedural  Turing  machine 

fin  to  terminate  session 

No  default. 


2.       IS  MACHINE  DETERMINISTIC?     (Y  OR  N) 
No  default. 


3.       MAX  NUMBER  OF  NODES? 

For  nondeter  minis  tic  automata,    enter  the  maximum  number  of 
nodes  to  be  allocated.      Provisions  are  made  for  revising  this 
number  later  in  the  session.     Reply  must  be  in  the   range:  0  -  9999. 


4.       MAX  NUMBER  OF  STEPS? 

Same  as  above  except  that  this  is  the  maximum  number  of  steps 
to  be  executed  by  deterministic  automata. 


5.       GIVE  RULES 

The  system  will  key  the  user  to  input  rules  one  at  a  time,    by 
printing  a  rule  number.     Acceptable   rule  formats  are: 

A.      Finite  Automata  (Q.,A)    -     (Q.)  where 
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Q.,Q.        are  states  of  the  finite  control, 
A         ^        is  the  character  of  the  input  string 
being  scanned. 

B.  Pushdown  Automata:  (Q.,  A,  X)  -  (Q.,  S)         where 

Q.,Q.         are  states  of  the  finite  control, 
A        ^        is  the  character  of  the  input  string  being 
scanned,    or  the  character  '&',    denoting 
an  epsilon  rule, 
X  is  the  top  symbol  on  the  pushdown  stack, 

S  is  a  string  of  from  1  to  4  characters  of  the 

pushdown  alphabet  to  be  added  to  the  push- 
down stack,    or  the  character  '  & '  which 
denotes  that  the  top  symbol  of  the  pushdown 
stack  is  to  be  popped. 

C.  Turing  Machines  and  Procedural  Turing  Machines: 

(Q.,  A)  -  (Q.,  Y,  M)  where 

Q.,Q.         are  states  of  the  finite   control, 

A        •*         is  the  character  being  scanned  by  the  tape 

head.     The  symbol  may  be  '&'  at  the 

righthand  end  of  the  tape, 
Y  is  the  single  character  from  either  the  input 

or  tape  alphabet  which  replaces   'A', 
M  which  is  either  the  single   character  '1'  or 

'r',    which  denotes  whether  the  tape  head 

is  to  move  left(l)  or  right  (r). 


The  user  terminates  the  input  of  rules  by  typing  'end'  as  the  last  rule. 
States  may  be  any  string  of  characters  up  to  three  in  length. 

All  parenthesis  and  blanks  are  ignored  by  the  system  and  may  be 
included  as  desired  by  the  user.     The  left  and  right  hand  side  of  the 
rules  must  be  separated  by  the   symbol,    '-',    and  the   rule  must 
contain  the  proper  number  of  commas.      For  example: 

(Q.,A,X)  -   (Q..S) 

Q.    ,A  ,       X     -     Q.,    S 
1  J 


(  (Q.,A),(X)  )    -    (Q.    ,       S) 


are  all  equivalent. 


6.       ENTER  START  STATE 

Same  rules  as  for  states  in  the  input  rules. 
No  default. 
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7.       ENTER  START  SYMBOL 

For  PDA  only.      User  must  input  a  single  symbol  for  the 
top  of  the  pushdown  stack. 
No  default. 


8.       FINAL  STATE  OR  EMPTY  STORE?     (F  OR  E) 

For  PDA  only.      Enter: 

'f  for  final  state  acceptance, 
'e'  for  empty  store  acceptance. 

No  default. 


9.       ENTER  FINAL  STATE(S) 

For  all  final  state  machines,    the  user  must  enter  the  final 
state  or  states,    one  per  line.      End  input  by  typing  'end'. 
No  default. 


10.       MAKE  ANY  CORRECTIONS?     (Y  OR  N) 

If  user  responds   'y',    he  will  be  given  the  following  options: 

CORRECT  ANY  RULES?    (Y  OR  N) 
If  'y'  then  system  will  respond: 

GIVE  RULE  NUMBER 

Enter  the  number  of  the   rule  to  be   corrected. 
The  system  will  print  the   rule  as  originally 
written  and  prompt  the  user  with: 

ENTER  CORRECT  RULE: 
Same  rules  as  for  GIVE  RULES. 

ADD  ANY  RULES?     (Y  OR  N) 
If  'y'  the  system  will  give  next  sequential 
rule  number  and  user  will   respond  as  for 
GIVE  RULES. 

CHANGE  START  STATE?     (Y  OR  N) 
If  "y1  then  user  will  be  prompted  with: 

ENTER  START  STATE 
Rule  6  above  applies. 

CHANGE  FINAL  STATE(S)?     (Y  OR  N) 
If  'y'  then  the  user  will  be  prompted  with: 

ENTER  FINAL  STATE(S) 

User  must  respond  with  all  final  states, 

not  just  new  ones. 

CHANGE  MAX  NODES  OR  STEPS?    (Y  OR  N) 
If  'y'  then  rules  3  and  4  above,    apply. 
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GIVE  INPUT  STRING 

User  reply  is  any  string  of  characters,    without  embedded  blanks, 

or  the   reserved  symbols:     '#',    '&',    and  '%'. 


12.     WANT  A  TRACE?     (Y,    N,    OR  A) 

A.  'y'       (1 )     A  trace  of  all  steps  of  a  deterministic 

automata  is  printed. 
(2)     A  trace  of  the  solution  path,    if  any,    of  a 
nondeterministic  automata  is  printed. 

B.  'n'  No  trace.      Output  will  be  a  statement  of 

whether  an  input  string  is  accepted  or 
rejected,    except  for  the  case  of  the  PTM, 
where  the  final  configuration  of  the  tape 
will  be  printed. 

C.  'a'  All  steps  or  nodes  will  be  printed  fox-  both 

deterministic  and  nondeterministic  automata, 
regardless  of  whether  a  solution  exists. 


13.     TRY  ANOTHER  STRING?     (YORN) 
If  'y'  the   system  will  respond: 

MAKE  ANY  CORRECTIONS  FIRST?     (Y  OR  N) 
Rule   10  above,    applies. 


14.     WANT  TO  QUIT?     (Y  OR  N) 
If  'y'  program  terminates. 
No  default. 


15.     WANT  TO  STORE  PRESENT  MACHINE?     (Y  OR  N) 
If  'y'  the  system  will  respond: 

GIVE  A  NAME  TO  THIS  MACHINE 

Name  may  be  any  character  string  of  from  1  to  10 

symbols  in  length. 

No  default. 


16.     WANT  TO  RETRIEVE  A  MACHINE?     (YORN) 
If  'y'  the  system  will  respond: 

GIVE  NAME  OF  MACHINE 

Reply  with  name  of  machine.      If  machine  is 

not  in  memory,    the   system  will  respond: 

NO  SUCH  MACHINE  IN  MEMORY 
Question  16  will  be  repeated. 


If  machine  is  in  memory,    the  system  will  respond: 

(1)  WANT  RULES  DISPLAYED?     (Y  OR  N) 
Default  V. 

(2)  GIVE  INPUT  STRING 
No  default. 


17.      WANT  TO  CREATE  A  NEW  MACHINE?     ( Y  OR  N) 
If  'y'  the  system  will  respond: 

TYPE  OF  MACHINE 
Return  to  rule   1. 

If  'n1  the  terminal  session  will  be  terminated. 
No  default. 
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SAMPLE  TERMINAL  SESSION 


TYPE  CF  MACHINE? 
fa 

IS  MACHINE  DETERMINISTIC?  (Y  OR  N) 

y 

MAX  NUMRER  OP  STEPS? 
25 

GIVE  RULES 

(  1) 

(q0,0)-(o0) 

(  2) 
(ql,0)-(q3) 

(  3) 

(q2/0)-(q0) 

(  k) 

(q3,0)-(ql) 

(  5) 

(qO/l)-(ql) 

(  6) 
(ol,l)-(qO) 

(  7) 

(q2,l)-(q3) 

(  8) 
(q3,l)-(q2) 

(  9) 

end 

ENTER  START  STATE 
qO 

ENTER  FINAL  STATE(S) 


qO 


end 
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MAKE  ANY  CORRFCTIONS  ?  (Y  OR  N) 

y 

CORRECT  ANY  RULES?  (Y  OR  N) 

y 

GIVE  RULE  NUMBER 
1 

1  :   (O0,0)-(O0) 

ENTER  CORRECT  RULE: 
(q0/0)-(o2) 

CORRECT  ANY  MORE  RULES?  (Y  OR  N) 
n 

MAKE  ANY  MORE  CORRECT  I  OTIS  ?  (Y  OR  N) 
n 

RIVE  INPUT  STRING 

10010101 

WANT  A  TRACE?  (Y,N,  OR  A) 

y 

STEP    RULE    STATE    STRING 


0 

QO 

5 

0.1 

2 

03 

U 

01 

6 

QO 

1 

02 

7 

03 

h 

01 

6 

0  0 

10010101 

0010101 

010101 

10101 

0101 

101 

01 

1 


STRING  IS  ACCEPTED 

TRY  ANOTHER  STRING?  (Y  OR  N) 

n 

WANT  TO  QUIT?  (Y  OR  N) 
n 
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WANT  TO  STOPF  PRESENT  MATH  IMF?  (Y  OR  M) 

y 

OIVF  A  NAME  TO  THIS  MACHINE 
evenl&O 

WANT  TO  RETRIEVE  A  MACHINE?  (Y  OR  N) 
n 

WANT  TO  CREATE  A  NEW  MACHINE?  (Y  OR  N) 

y 

TYPF  OF  MACHINE? 
fa 

IS  MACHINE  DETERMINISTIC?  (Y  OR  N) 
n 


MAX    NUMBER    OF    NODES? 
20 

GIVE 

RULES 

(    1) 
q0,0- 

-qO 

(    2) 
q0,0- 

•q3 

(    3) 
qO,l« 

-qO 

(    h) 
qO,l- 

-ql 

(    5) 
ql,l- 

•qt. 

(    6) 
ql/0- 

■ft 

(    7) 
q3/0- 

•ql* 

(    8) 
q3,l- 

•q 

(    9) 
qU,0-qt) 

(10) 
qU,l- 

■qfl 

(11) 

end 
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FNTER  START  STATE 
qO 

ENTER  FINAL  STATE(S) 
q4 

end 

MAKE  ANY  CORRECTIONS  ?  (Y  OR  N) 
n 

RIVE  INPUT  STRING 
0100 

WANT  A  TRACE?  (Y,N,  OR  A) 

y 

STEP    RULE    STATE    STRING 
0      0     QO      nioo 


1 

1 

QO 

100 

2 

3 

QO 

00 

3 

2 

Q3 

0 

k 

7 

Q*» 

STRING  ACCEPTED 

NODES  = 

11 

TRY  ANOTUFR  STRING?  (Y  OR  N) 

y 

MAKE  ANY  CORRECTIONS  FIRST?  (Y  OR  N) 
n 

GIVE  INPUT  STRING 
0101010110 

WANT  A  TRACE?  (Y,N,  OR  A) 
n 

MAX  NUMBER  OF  NODES  FXCEFDFD 
WANT  TO  CHANGE  MAXIMUM?  (Y  OR  N) 

y 

WHAT  IS  NEW  MAX? 
50 
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STRING  ACCEPTED 

NODES  =         30 

TRY  ANOTHER  STRING?  (Y  OR  N) 
y 

MAKE  ANY  CORRECTIONS  FIRST?  (Y  OR  N) 
n 

GIVE  INPUT  STRING 
0100 

WANT  A  TRACF?  (Y,N,  OR  A) 
a 


NODE 

STATE 

INPUT  STRING 

0 

QO 

0100 

1 

QO 

100 

2 

03 

100 

3 

QO 

00 

h 

Ql 

00 

5 

a 

00 

G 

QO 

0 

7 

Q3 

0 

8 

& 

0 

9 

QO 

10 

Q3 

11 

QU 

STRING  ACCEPTED 

NODES  = 

11 

TRY  ANOTHER  STRING?  (Y  OR  N) 
n 

WANT  TO  QUIT?  (Y  OR  N) 
n 

WANT  TO  STORE  PRESFNT  MACHINE?  (Y  OR  N) 

y 
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GIVE  A  NAME  TO  THI S  MACHI NE 
doubl es 

WANT  TO  RETRIEVE  A  MACHINE?  (Y  OR  N) 
n 

WANT  TO  CREATE  A  NEW  MACHINE?  (Y  OR  N) 

y 

TYPE  OE  MACHI ME? 
pda 

IS  MACHINE  DETERMINISTIC?  (Y  OR  N) 
n 

MAX  NUMBER  OE  NODES? 
30 

GIVE  RULES 

(  1) 

ql, 0, r-ql,br 

(  2) 

ql,l, r-ql,gr 

(  3) 
ql,0,b-ql,bb 

(  k) 
ql,0,b-q2,a 

(    5) 
qljOjg-ql/bg 

(    6) 

ql,  l,b-ql,gb 

(    7) 
ql,l,g-ql,gg 

(    8) 
ql,l,g-q2,& 

(    9) 

q2,0,b-q2,& 

(10) 
q2,l,g-q2,& 

(11) 
ql,&,r-q2,& 

(12) 
q2,&,r-q2,& 
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(13) 
end 

ENTER  START  STATE 
ql 

WHAT  IS  START  SYMBOL? 

r 

FINAL  STATE  OR  EMPTY  STORE?  (F  OR  E) 
e 

MAKE  ANY  CORRECTIONS  ?  (Y  OR  N) 
n 

GIVE  INPUT  STRING 
011110 

WANT  A  TRACE?  (Y,N,  OR  A) 

y 

STEP    RULE    STATE   PUSHDOWN  STRING 

0       0      Ql     R  011110 

11110 
1110 
110 
10 
0 


1 

l 

Ql 

BR 

2 

6 

01 

GBR 

3 

7 

Ql 

GGBR 

U 

8 

Q2 

GBR 

5 

10 

Q2 

BR 

6 

9 

02 

R 

7 

12 

Q2 

STRING  ACCEPTED 

NODES  = 

III 

TRY  ANOTHER 

y 

STRI NG? 

(Y  OR 

N) 

MAKE  ANY  CORRECTIONS  FIRST?  (Y  OR  N) 
n 

GIVE  INPUT  STRING 
00011100111000 

WANT  A  TRACE?  (Y,N,  OR  A) 
n 


26 


MAX  NUMBER  OF  NODES  EXCEEDED 
WANT  TO  CHANG F  MAXIMUM?  (Y  OR  N) 

y 

WHAT  IS  NEW  MAX? 
100 

STRING  ACCEPTED 

NODES  =         33 

TRY  ANOTHER  STRING?  (Y  OR  N) 
n 

WANT  TO  QUIT?  (Y  OR  N) 
n 

WANT  TO  STORE  PRESENT  MACHINE?  (Y  OR  M) 

y 

GIVE  A  NAME  TO  THIS  MACHINE 
wwrl&O 

WANT  TO  RETRIFVE  A  MACHINE?  (Y  OR  N) 
n 

WANT  TO  CREATE  A  NEW  MACHINE?  (Y  OR  N) 

y 

TYPE  OF  MACHINE? 
tm 

IS  MACHINE  DETERMINISTIC?  (Y  OR  N) 

y 

MAX  NUMBER  OF  STEPS? 
100 

GIVE  RULES 

(  1) 

ql,0-ql, 0-0 

INCORRECT    FORMAT,     REPEAT    RULE 
ql,0-ql,0,  r 

(    2) 

ql,  y-ql,  y,  r 

(    3) 
ql,l-q2,y,  1 

(     l»> 
q2/y-q2/  y,  1 
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(    5) 
q2,x-q3,x, r 

(    6) 
q2,0-qU,0,l 

(    7) 
qli/0-qU/  0,  1 

(     8) 

qU,  x-qO,  x,  r 

(    9) 
q3,y-q3,y, r 

(10) 
q3,&-q5,y,  r 

(11) 

qO, O-ql, x,  r 

(12) 
end 

FNTER    START 
qO 

STATE 

ENTER  FINAL  STATE(S) 
q5 

end 

MAKE  ANY  CORRECTIONS  ?  (Y  OR  N) 
n 

GIVE  INPUT  STRING 
0011 

WANT  A  TRACE?  (Y,N,  OR  A) 
n 

STRING  IS  ACCEPTED 

TRY  ANOTHER  STRING?  (Y  OR  N) 

y 

MAKE  ANY  CORRECTIONS  FIRST?  (Y  OR  N) 
n 

GIVF  INPUT  STRING 
0011 
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WANT  A  TRAC 

y 

E?  (Y,N, 

OR  A) 

STEP 

RULE 

STATF. 

TAPE 

1 

0 

QO 

->0011 

2 

11 

o.i 

X->011 

3 

1 

Ql 

X0->11 

l\ 

3 

Q2 

X->0Y1 

5 

6 

dh 

->X0Y1 

6 

8 

00 

X->0Y1 

7 

11 

Ql 

XX->Y1 

8 

2 

Ql 

XXY->1 

9 

3 

02 

XX->YY 

10 

l| 

02 

X->XYY 

11 

5 

03 

XX->YY 

12 

9 

03 

XXY->Y 

13 

9 

Q3 

XXYY-> 

m 

10 

05 

XXYYY-> 

STRING  I S  ACCEPTED 

TRY  ANOTHER  STRING?  (Y  OR  N) 

y 

MAKE  ANY  CORRECTIONS  FIRST?  (Y  OR  N) 


GIVE  INPUT  STRING 
00011 

WANT  A  TRACE?  (Y,N,  OR  A) 
n 

STRING  NOT  ACCEPTED 

TRY  ANOTHER  STRING?  (Y  OR  N) 
n 

WANT  TO  QUIT?  (Y  OR  N) 
n 
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WANT  TO  STORE  PRESENT  MACHINE?  (Y  OR  N) 

y 

GIVE  A  NAME  TO  THIS  MACHINE 
0**nl**n 

WANT  TO  RETRIEVE  A  MACHINE?  (Y  OR  N) 

y 

GIVE  NAME  OF  MACHINE 
wwrl&O 

WANT  THE  RULES  DISPLAYED?  (Y  OR  N) 
n 

GIVE  INPUT  STRING 
10 

WANT  A  TRACE?  (Y,N,  OR  A) 
n 

STRING  NOT  ACCEPTED 

NODES  =  1 

TRY  ANOTHER  STRING?  (Y  OR  N) 
n 

WANT  TO  QUIT?  (Y  OR  N) 
n 

WANT  TO  STORE  PRESENT  MACHINE?  (Y  OR  N) 
n 

WANT  TO  RETRIEVE  A  MACHINE?  (Y  OR  N) 
n 

WANT  TO  CREATE  A  NEW  MACHINE?  (Y  OR  N) 

y 

TYPE  OF  MACHINE? 
ptm 

MAX  NUMBER  OF  STEPS? 
100 

GIVE  RULES 

(  1) 

q0/ 1-ql/X,  r 
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(    2) 
ql,l-ql,l, r 

(    3) 
ql,*-q2,*, r 

(    h) 
q2/y-q2/y/r 

(    5) 
q2,l-q3,y, r 

(    6) 
q3/l-q3/l/ r 

(    7) 
q3,*-q'*,*,  r 

(    8) 
qU/l-qU/l, r 

(    9) 
ql*,&-q5,l,  1 

(10) 
qSjl-qS,!,! 

(11) 
q5,*-q5,*,l 

(12) 
q5,y-q2/y/r 

(13) 
q2/*-q6/*/ 1 

C1U) 

qG/y-qC/ 1/ l 

(15) 
q6,*-qG,*, 1 

(1G) 

qG, 1-qG, 1, 1 

(17) 

q6, x-qO, x,  r 

C18) 

q0/*-q7/*/ r 

(19) 
end 


31 


ENTER  START  STATE 
qO 

MAKE  ANY  CORRECTIONS?  (Y  OR  N) 
n 

GIVE  INPUT  STRING 
11*11* 

WANT  A  TRACE?  (Y,N,  OR  A) 
n 

FINAL  CONFIGURATION:   XX*-> 11*1111 

TRY  ANOTHER  STRING?  (Y  OR  N) 

y 

MAKE  ANY  CORRECTIONS?  (Y  OR  N) 
n 

GIVE  INPUT  STRING 
111*11* 

WANT  A  TRACE?  (Y,N,  OR  A) 
n 

MAX  NUMBER  OF  STEPS  EXCEEDED 
WANT  TO  CHANGE  MAX?  (Y  OR  N) 

y 

WHAT  IS  NEW  MAX? 
150 

TRY  ANOTHER  STRING?  (Y  OR  N) 

y 

MAKE  ANY  CORRECTIONS?  (Y  OR  N) 
n 

GIVE  INPUT  STRING 
111*11* 

WANT  A  TRACE?  (Y,N,  OR  A) 
n 

FINAL  CONFIGURATION:   XXX*-> 11*111 111 

TRY  ANOTHER  STRING?  (Y  OR  N) 

y 

MAKE  ANY  CORRECTIONS?  (Y  OR  N) 
n 
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GIVE  INPUT  STRING 
1*11* 

WANT  A  TRACE?  (Y,N,  Of1,  A) 


STEP 

RULE 

STATE 

TAPE 

1 

0 

Q0 

-  >  1  *  1 1  * 

2 

1 

Ql 

X->*11* 

3 

3 

Q  2 

X*->11* 

k 

5 

Q3 

X*Y->1* 

5 

6 

Q3 

X*Yl->* 

6 

7 

QU 

X*Yl*-> 

7 

9 

Q5 

X*Y1->*1 

8 

11 

Q5 

X*Y->1*1 

9 

10 

Q5 

X*->Y1*1 

10 

12 

Q2 

X*Y->1*1 

11 

5 

Q3 

X*YY->*1 

12 

7 

dk 

X*YY*->1 

13 

8 

an 

X*YY*l-> 

Ik 

9 

Q5 

X*YY*->11 

15 

10 

Q5 

X*YY->*11 

1G 

11 

Q5 

X*Y->Y*11 

17 

12 

Q2 

X*YY->*11 

18 

13 

QG 

X*Y->Y*11 

19 

Ik 

QG 

X*->Y1*11 

20 

Ik 

QG 

X->*11*11 

21 

1G 

QG 

->X*11*11 

22 

17 

Q0 

X->*11*11 

23 

18 

Q  7 

X*-> 11*11 

V 


FINAL  CONFIGURATION:   X*->11*11 
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/*    AUTO:   AN  AUTOMATON  SYNTHESIZER  */ 


GOLD:  PROC  OPTI ONS( MA  I N ) ; 

/*  DECLARATION  SECTION 

RULES     -THE  ARRAY  OF  RULES  IN  CANONICAL  FORM 

RULE      -THE  ARRAY  OF  RULES  AS  INPUT  BY  THE  USER 

STATE     -A  STATE  OF  FINITE  CONTROL 

RSTATE    -THE  START  STATE 

NO        -RULE  NUMBER,  FOR  REPLY  STATEMENT 

DUM       -THE  START  SYMBOL 

LEFT      -THE  INITIALIZED  LEFT  PUSHDOWN  STACK 

X,T       -STRINGS  USED  IN  PREPARING  OUTPUT  IN  THE 

PROPER  FORMAT  FOR  TM  AND  PTM 
FST       -A  FINAL  STATE 
FNST      -THE  ARRAY  OF  FINAL  STATES 
NUM       -THE  PROMPTER  FOR  RULE  INPUT 
MAXUM     -THE  CHARACTER  REPRESENTATION  OF  THE 

MAXIMUM  NUMBER  OF  STEPS  OR  NODES 
MORE      -OUTPUT  STRING  CONTAINING  EITHER  A  BLANK 

OR  THE. WORD  '  MORE  « 
FIRT      -OUTPUT  STRING  CONTAINING  EITHER  A  BLANK 

OR  THE  WORD  'FIRST  ' 
CONFIG    -A  MACHINE  CONFIGURATION 
INPUT     -INPUT  OF  RULES 
BUFF      -THE  INPUT  STRING 
QUE       -SINGLE  LETTER  REPLY  CHARACTERS 
TAPE      -THE  TM  OR  PTM  TAPE 
TYPE      -AUTOMATON  TYPE 
NAME      -VARIABLE  TO  CONTAIN  NAME  OF  MACHINE  TO  BE 

STORED  OR  RETRIEVED 
TLPD      -TOP  SYMBOL  OF  LEFT  STACK 
TRPD      -TOP  SYMBOL  OF  RIGHT  STACK 
TLPDN     -DUPLICATE  OF  TOP  OF  LEFT  STACK 

LPDA,RPDA 
WRPDA,WLPDA 

RPDOWN,LPDOWN     THESE  SIX  CHARACTER  STRINGS  ARE 
USED  TO  REPRESENT  THE  RIGHT  AND 
LEFT  PUSHDOWNS;  WORKING  COPIES  OF 
THESE  PUSHDOWNS;  AND  THE  PUSHDOWNS 
IN  THE  FORM  NEEDED  FOR  OUTPUT. 
OLD_STATE 
OLD_LFTOP 

OLD  RTTOP    -THE  LEFTHAND  SIDE  OF  A  CANONICAL  RULE; 
THE  STATE,  TOP  OF  THE  LEFT  STACK,  AND 
THE  TOP  OF  THE  RIGHT  STACK.   WHEN 
CONCATENATED  TOGETHER,  THE  STRING 
REPRESENTS  A  PARTICULAR  CONFIGURATION. 

*/ 


DCL   RULESO0,4)    CHAR(5), 
STATE   CHARO), 
NO    CHAR(2), 
RSTATE  CHARO), 
RULEOO)   CHAR(50)  VARYING, 
DUM    CHAR(l), 
LEFT   CHARO), 
X   CHAR(50)  VARYING, 
T   CHAR(l), 
FST   CHARO), 
NUM    PICTURE  • Z9« , 
FNST(IO)   CHARO), 
MAXUM    CHAR(4), 

(MORE, FIRT)     CHAR(6)  VARYING, 
CONFIG    CHARO), 
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NAME 

CHAR(IO) , 

TLPD 

CHARd  )  , 

TRPD 

CHAR( 1)  , 

TLPDN 

CHARd)  , 

TRPDN 

CHARd)  , 

WRPDA 

CHAR( 100)  , 

WLPDA 

CHAR (100)  , 

BUFF 

CHAFU50)  T 

QUE 

CHAR( 1) , 

LPDA 

CHAR(IOO)  VARYING, 

RPDA 

CHAR(IOO)  VARYING, 

INPUT 

CHAR(50)  VARYING, 

RPDOWN     CHAR(50)  VARYING, 

LPDOWN     CHAR(20), 

TAPE 

CHAR(50)  VARYING, 

TYPE   CHARO), 
OLD  STATE    CHARO), 
OLDlLFTOP    CHAR(l), 
^0LD_RTT0P    CHARd)  ; 

/*    STRUCTURE  USED  TO  STORE  MACHINES  IN  MEMORY    */ 

DCL   1  STORED  BASED(P), 

2  LEFTS   CHAR(2>, 

2  NDET, 

2  IPO, 

2  NAMES   CHAR(IO), 

2  TYPES   CHARO), 

2  RSTATES  CHARO)  , 

2  NEMPTYS, 

2  SRULES(50,4)  CHAR(5), 

2  SRULEOO)   CHAROO), 

2  FNSTS(IO)   CHARO), 

2  NXT  PTR; 

/*    POINTERS,  FLAGS,  £  COUNTERS  */ 

DCL  TT  PTR, 
D  PTR, 

(IG00D,ITRACE,N0DN0,NEMPTY, I, J,NC,NF)  FIXED  BINARY; 

/*    INITIALIZATION  */ 

IFIRST  =  0; 

ON  CONVERSION  BEGIN;  .   ikil 

DISPLAYC  REPEAT  NUMBER')  REPLY ( MAXUM) ; 
ONSOURCE  =  MAXUM; 

END; 
GETTING: 

FNST  =  •  ■  ; 

MORE  =  ■  '  *, 

FIRT  =  •  ■  ; 

RULE  =  ■  •; 

RULES  =  '  ■ ; 

NEMPTY  =  0; 

NEW  =  0; 

ipro  =  o; 
ICHK  =  o; 
QUE  =  •  •; 

NOND  =  0; 

DISPLAYCTYPE  OF  MACHINE?')  REPLY(TYPE); 
IF  TYPF  =  «PTM'  THEN  DO; 

DISPLAYCMAX  NUMBER  OF  STEPS?')  REPLY  (  MAXUM )  ; 

GO  TO  MAXPTM; 

IF  TYPE  =  'FIN'  THEN  GO  TO  FINI; 
DISPLAYCIS  MACHINE  DETERMINISTIC?  (Y  OR  N)') 
REPLY(QUE); 
MAX  I: 
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IF  QUE  =  'N'  THEN  DO; 

DISPLAYS  MAX  NUMBER  OF  NODES?')   REPLY ( MAXUM) ; 

ELSE  DISPLAYCMAX  NUMBER  OF  STEPS?')  REPLY  ( MAXUM)  ; 

IFXSUBSTR(MAXUM,ia)<'0'  THEN  GO  TO  MAXI  ; 
MAXNO  =  MAXUM; 

/*    READ  THE  RULES  IN  ONE  AT  A  TIME  */ 

DISPLAY( 'GIVE  RULES' ) ; 

REA°IF  NEW  =  1  THEN  DO; 
NEW  =  o; 
J  =  JTEMP; 
GO  TO  repeet; 
end;_ 

DISPLAY!'  C  I  INUMI  I  '  )  ')  REPLY(INPUT)  ; 

IF  INPUT  =  'END'  THEN  GO  TO  BUILD; 

RULE(J)  =  INPUT; 

/*    RID  THE  INPUT  STRING  OF  ALL  EMBEDDED  BLANKS 

AND  PARENTHESIS  *' 

CRUSH: 

M  =  l;  L  =  l; 

NCOM  =  o;  NDOT  =  0; 

3P?0SUBSTRUN°U?°iai--  JSSUBSTRC  INPUT,  I,  1>— <■ 

&SUBSTRC INPUT, I ,1 )-=')') ; 
L  =  L  +  l; 

END; 

IF~L>30  THEN  GO  TO  TRIM; 
SUBSTR(INPUT,I)  =  SUBSTR( INPUT , I + 1 ) ; 

m  =  i  ; 

go  to  loop; 

/*    TRIM  THE  INPUT  STRING  OF  ALL  TRAILING  BLANKS  */ 

TRIMINPUT  =  SUBSTR<INPUT,1,INDEX(INPUT,'  «)-l); 
IF  SUBSTR(INPUT,1,1K'A'  THEN  DO; 

ERRDISPLAYC  INCORRECT  FORMAT,  REPEAT  RULE')  REPLYdNPU 

rule (j)  =  ■  ' ;  . 
rulesu,*)  =  •  "; 

ifLinput~  =  II1!endJ  then  go  to  build; 
go  to  crush; 

ifD1ndex(input,'-')=o  then  go  to  err; 

D°    l    ifSSBstS™?  PJ  P=    ;.;    THEN    NCOM    =    NCOM    j    1| 
IF     SUBSTR(INPUT,I ,1)     =     '-*     THEN    NDOT    -    NUU  I     +    1 , 
END; 

TRIMIF    TYPE    =     'FA    '  THEN    GO    TO    FA; 

IF    TYPE    =     'PDA'  THEN    GO    TO    P_DA; 

IF    TYPE    =    'PTM«  THEN    IPRO    =   T; 

IF    TYPE    =     'PTM'  THEN    TYPE    =     «TM    ", 

If.    TYPF    =     »TM    '  THEN    GO    TO    T_M; 
DISPLAYCWHAT    IS    MACHINE?')     REPLY(TYPE); 
GO    TO    TRIMl; 

THE     INPUT    RULES    TO    THE    CANONICAL    FORM    OF 
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THE  RULE  REQUIRED  BY  AUTO.   AFTER  EACH 
RULE  IS  TRANSFORMED,  A  BRANCH  IS  MADE  TO 
THE  READ  SECTION  TO  SEE  IF  THERE  ARE  ANY 
MORE  RULES.   THE  INPUT  OF  RULES  IS  TERMINATED 
BY  INPUTTING  'END*.  */ 


A: 


IF  NCOM  -,=  1  |NDOT-.=  l  THEN  GO  TO  ERR; 
OLD_STATE  =  SUBSTR ( I NPUT , 1 , I NDEX ( I NPUT , ' , ' )-l ) ; 
OLD  LFTOP  =  '  # '  ; 

OLD"RTTOP  =  SUBSTRUNPUT, INDEX!  INPUT,', «)  +  l,l)  ; 
RULES(J,1)  =  OLD  STATE   OLD_LFTOP   OLD  RTTOP; 
RULES!  J  J  2)  =  SUBSTRUNPUT,  INDEX!  INPUT, T- ' ) +  1 1  ; 
RULES!J,3)  =  •#• ; 
RULES(J,4)  =  •  &•  ; 

j  =  J  +  l; 

GO  TO  READ; 
.DA: 
IF 

OLD_ 
OL 
OL~, 
RULES 


IF  SUBSTRUNPUT,  INDEX! 
RULES(J,3)  =  •££• 
RULES(J,4)  =  •%%• 


END; 

GO  TO  ERR 


J  =  J  +1, 

GO  TO  READ; 


(INPUT,  »,'  Klti-I  =  "L«  THEN  BEGIN; 

|  j  SUBSTRUNPUT, 1,1)  ; 


/*    THE  FOLLOWING  SECTIONS;  BUILD,  FINAL,  AND 
GET  STATE  CALL  FOR  INPUTTING  OF  THE  START 
STATE  AND  IN  THE  CASE  OF  THE  PDA,  THE  START 
SYMBOL.   FOR  THE  PDA,  A  DETERMINATION  IS 
MADE  OF  WHETHER  THE  MACHINE  IS  A  FINAL  STATE 
OR  EMPTY  STORE  MACHINb.   FOR  ALL  MACHINES 
WITH  FINAL  STATE  ACCEPTANCE,  A  LIST  OF  FINAL 
STATFS  IS  OBTAINED.   THE  LEFT  PUSHDOWN  IS 
INITIALIZED  ACCORDING  TO  THE  TYPE  OF  MACHINE, 
I.E.,  DELIMITERS  PLACED  ON  THE  STACK  OR  THE 
START  SYMBOL  FOR  THE  PDA.  <t/ 


DISPLAY! 'ENTER  START  STATE')  REPLY! RSTATE ) 
IF  RSTATE  =  «    '  THEN  GO  TO  BUILD; 
IF  TYPE  =  'FA  '  THEN  BEGIN; 
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LPDA  =  ■#«  ; 

LEFT  =  LPDA; 

GO  TO  final; 
END; 
IF  TYPE  =  'PDA'  THEN  BEGIN; 

DUMDUM: 

DISPLAYCWHAT  IS  START  SYMBOL?')  REPLY(DUM); 

IF  DUM  =  •  •  THEN  GO  TO  DUMDUM; 

LPDA  =  DUM| | •£• ; 

LEFT  =  LPDA; 

DISPLAY( 'FINAL  STATE  OR  EMPTY  STORE?  (F  OR  E)') 

REPLY(QUE) ; 

IF  QUE  =  'F'  THEN  GO  TO  FINAL; 

IF  QUE  -*=  •  E"  THEN  GO  TO  FORE; 

NEMPTY  =  l; 

GO  TO  REPLAY; 
END; 

IF  TYPE  =  «TM  '  THEN  LPDA  =  •#£»; 
LEFT  =  LPDA; 
FINAL: 

IF  IPRO  =  1  THEN  GO  TO  REPLAY; 

DISPLAY  CENTER  FINAL  STATE(S)'); 
GET_STATE: 

DISPLAY!':  •)  REPLY(FST); 

IF  FST  =  'END'  THEN  BEGIN; 

IF  NFIN  =  0  THEN  GO  TO  REPLAY; 

GO  TO  RESTART; 
END; 

FNST(NF)  =  FST; 
NF  =  NF  +  l; 
GO  TO  GET_STATE; 

/*    NEWRULE,  REPLAY,  REPEET  AND  REPLAY1-4  HANDLE 
THE  INTERACTIVE  CHANGES,  ADDITONS,  DELETIONS, 
ETC.  TO  THE  MACHINE  INPUT  BY  THE  USER.        */ 

DISPLAY( 'GIVE  RULE  NUMBER')  REPLY(NO); 

IF  SUBSTR(N0,1,1X'0'  THEN  GO  TO  NEWRULE; 

KK  =  NO; 

IF  KK<=0|KK>J  THEN  DO; 

DISPLAYCNO  SUCH  RULE'  )  ; 

GO  TO  REPEET; 

DISPLAY(NO|  I  «:   '  I  I  RULE ( KK ) ) ; 
RULE(KK)  -  '_' • 

DISPLAYPENTiR  CORRECT  RULE:   ')   REPLY( INPUT ) ; 
NEW  =  l; 
JTEMP  =  J; 
RULE(KK)  =  INPUT; 
J  =  KK; 
GO  TO  CRUSH; 
RF PLAY  * 

DISPLAYCMAKE  ANY  '  |  I  MORE  |  I  '  CORRECTIONS  '  I  I  F  I  RT  |  |  «  ?  (Y  OR 

REPLY ( QUE  )  * 

IF  QUE  =  «N'  THEN  GO  TO  RESTART; 

IF  QUE-i='Y«  THEN  GO  TO  REPLAY; 

IF  MORE  -.=  ■  '  THEN  DO; 

MORE  =  •  ■ ; 

GO  TO  REPLAYl; 
END; 

REPEDISPLAY( 'CORRECT  ANY*  I  I  MORE  I  I  • RULES?  (Y  OR  N)«) 
REPLY (QUE)  * 

IF  QUE  =  'N'  &  MORE  =  '  MORE  '  THEN  DO; 
FIRT  =  '  « ; 
GO  TO  REPLAY; 


IF  QUE  =  'N'  THEN  GO  TO  REPLAY1; 
IF  QUE-*='Y«  THEN  GO  TO  REPEET; 
MORE  ■  «  MORE  « ; 
GO  TO  NEWRULE; 

REPLDISPLAYCADD  ANY  RULES?  (Y  OR  N)')  REPLY(QUE); 

IF  QUE  =  'N»  THEN  GO  TO  REPLAY2; 
IF  QUE  -=  «Y«  THEN  GO  TO  REPLAYi; 
DISPLAY( 'GIVE  RULES' ) ; 
GO  TO  read; 

REPLDISPLAY( 'CHANGE  START  STATE?  (Y  OR  N)')  REPLY(QUE); 
IF  QUE  =  fN'  THEN  GO  TO  REPLAY3; 
IF  QUE  -=  «Y«  THEN  GO  TO  REPLAY2; 

DISPLAY P ENTER  START  STATE')  gEPLYJRSTATE) ; 

IF  RSTATE  =  '    '  THEN  GO  TO  REPLAY21; 

REPLDllF»LAY( 'CHANGE  FINAL  STATE(S)?  (Y  OR  N)«)  REPLY(QUE); 

IF  QUE  =  «N'  THEN  GO  TO  REPLAY4; 
IF  QUE  -=  'Y»  THEN  GO  TO  REPLAY3; 
NFIN  =  l; 
GO  TO  FINAL*, 

REPLDISPLAY( -CHANGE  MAX  NODES  OR  STEPS?  (Y  OR  N)') 

IFPQUEQ=E:iN«  THEN  GO  TO  RESTART; 

MAXIDISPLAY('WHAT  IS  NEW  MAXIMUM?')  REPLY ( MAXUM ) ; 
IF  SUBSTR(MAXUM,1,LX'0'  THEN  GO  TO  MAXl; 
MAXNO  =  MAXUM; 


/*   THE  RESTART  SECTION  g'M   !"•--. 


TO  DEI  ^W,A°  i  ^"tuc" 

IF  SO,  THE  APPROPRIATE  HEADING   FOR  THE 
TYPE  OF  MACHINE  IS  PRINTED.  *' 

RESTART: 

D?SPLAY(?GIVE  INPUT  STRING')  REPLY(BUFF); 

RPDA  =  SUBSTR(RPDA,1,INDEX(RPDA,'  "l-llll'S'S 

RPDA  =  RPDAl !'#' ; 
LPDA  =  LEFT; 
STATE  =_RSTATE; 

DISPLAyT'WANT  A  TRACE?  <Y,N,  OR  A)')  REPLY(QUE); 
IF  QUE  =  «Y'  THEN  ITRACE  =  l; 
IF  QUE  =  'A'  THEN  ITRACE  =  2; 

IF  ITRkE  =  II  (ITRACE  =  2  £  NOND  =  0)  THEN  DO; 

Iif=T?dVplay(''  ™ENs?ep   RULE   STATE   STRING'  »; 
GO  TO  machine; 

IFDTYPE  =  'PDA'  THEN  DO;  ctatci I  I 

lh    DISPLAYC       STEP  RULE    STATE'  I  I 

•   PUSHDOWN  STRING'), 
GO  TO  MACHINE; 

DISPLAYC       STEP    RULE  STATE     TAPE   '); 
END; 

/*    MACHINE  CALLS  FOR  THE  MONDE TERMINI  ST  I C 
PROCEDURE  WHEN  NEEDED,  CHECKS  THAT  THE 
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MAXIMUM  NUMBER  OF  STEPS  OR  NODES  HAS  NOT 
BEEN  EXCEEDED,  AND  CAUSES  THE  STEP-BY-STEP 
OPERATION  OF  THE  AUTOMATON  TO  BE  PRINTED.     */ 

MACHINE: 

NUM  =  I ; 

IF  NOND  =  1  THEN  BEGIN; 
CALL  NONDET; 

IF  NODNO<MAXNO  THEN  D I  SPLAY (• NODES  =  • |  | NODNO ) ; 
GO  TO  RERUN; 
END; 
IF  NC  =  MAXNO  THEN  DO; 

DISPLAYCMAX  NUMBER  OF  STEPS  EXCEEDED'); 
DISPLAYC WANT  TO  CHANGE  MAX?  (Y  OR  N)«)  REPLY(QUE); 
IF  QUE  =  'N'  THEN  GO  TO  RERUN; 
MAX2: 

DISPLAY( 'WHAT  IS  NEW  MAX?')   REPL Y ( MAXUM ) ; 
IF  SUBSTR(MAXUM,1,1)<«0'  THEN  GO  TO  MAX2; 
MAXNO  =  MAXUM; 
END; 

TLPD  =  SUBSTR(LPDAT1»1) ; 
TRPD  =  SUBSTR(RPDA,1,1) ; 
IF  TRPD  =  •#»  G  TYPE  =  »TM  '  THEN  DO; 
TRPD  =  '£' ; 
RPDA  =  f£#' ; 
END; 

NC  =  NC  +  1; 

IF  TLPD  =  •SMTRPD  =  «#•  THEN  GO  TO  STUCK; 
IF  ITRACE  =  lldTRACE  =  2  &  NOND  =  0)  THEN  DO; 
RPDOWN  =  SUBSTR(RPDAtl,INDEX(RPDA, •£• )-l) ; 
IF  TYPE  =  'FA  «  THEN  DO; 

DISPLAY(NC|  |  '      •  |  |  NUM I  I ■      ■  I  |  STATE  I  I 

•  • | | RPDOWN); 
GO  TO  RUN; 

END; 

IF  TYPE  =  'PDA*  THEN  DO; 

LPDOWN  =  SU8STR(LPDA,1,  INDEXUPDA,  •£■  )-l)  : 
DISPLAY(NC|  |  «      •IINUMM1      •  |  |  STATE  1  | 

•  » | |LPDOWN| I RPDOWN) ; 
GO  TO  RUN; 

END; 
IF  TYPE  =  »TM  «  THEN  DO; 
ICHK  =  l; 

/*    PROD  IS  A  SPECIAL  ROUTINE  WHICH  HANDLES  THE 

OUTPUT  OF  THE  TM  AND  PTM.  */ 


PROD: 


X  =  SUBSTR(LPDAT2,LENGTH(LPDA)-1 ) ; 
LEN  =  LENGTHt  X) ; 
DO  I  =  1  TO  LEN/2; 

T  =  SUBSTR(X,I  ,1) ; 

SUBSTR(X,I t 1)  =  SUBSTR(X,LEN-I+1, I) ; 
SUBSTR(X,LEN-I+1,1)  =  T; 
END; 

X  =  SUBSTR(X, INDEX(X, •£• )) ; 
X  =  SUBSTR(X,2) ; 
IF  IPRO  =  1  £  ICHK  =  0  THEN  BEGIN; 

IF  SUBSTR(RPDA,1,1)  =  •£•  THEN  RPDOWN=  ■  f; 

ELSE  RPDOWN  =  SUBSTR ( RPDA, 1 , INDEX ( R PDA, •£') -1 ) 

TAPE  =  X| I •->' | irpdown; 

DISPLAY( • FINAL  CONFIGURATION:   • | I T APE ) ; 

GO    TO    RERUN; 
END; 

TAPE    =    X| | '->• | IRPDOWN; 
DISPLAY 

(NCI  |  •  •||NUM||«  •MSTATEir  ■  I  |TAPE)  i 

IF     IPRO    =    0    THEN    DO; 

DO  NR  =  1  TO  NF; 

IF  STATE  =  FNST(NR)  THEN  GO  TO  POS; 

end; 
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end; 

GO  TO  RUN; 

DISPLAY* • INCORRECT  MACHINE  TYPE  WAS  ENTERED1); 
DISPLAY! "TYPE  ENTERED  WAS:   •  I  I  TYPE ) ; 
GO  TO  RERUN; 

end; 


/* 


RUN: 

WRPDA  =  RPDA; 
WLPDA  =  LPDA; 
CONFIG  =  STATE! ITLPDI |TRPD; 

D°  l     IF1RULES(;i,l)  =  CONFIG  THEN  GO  TO  CHANGE; 
IF  TYPE  =  'PDA1  THEN  DO; 

IF  SUBSTR(RULES(I,1),5,L)  =  '£■  THEN  DO; 

IF  SUBSTR(RULES(  I,l),l,3)  =  STATE  THEN  DO; 
IF  SUBSTR(RULES(I,1),4,1)  =  TLPD  THEN 

GO  TO  epsilon; 
end; 
end; 
end; 
end; 

GO  TO  STUCK; 
CHANGE:  _ 

STATE  =  RULES(  1,2)  ;     nyi    nn 
IF  RULES(I,3)  =  'S  '  THEN  DO; 
LPDA  =  SUBSTR(WLPDA,2) ; 
GO  TO  RIGHT; 

IF°RULES(I,3)  =  •££'  THEN  DO; 

LPDA  =  •#«  I  I SUBSTR(WLPDA,3) ;  ,  ,  ltll 

RPDA=SUBSTR<WLPDA,2,1)!  I  SUBSTRI  RULE  S(  1 ,  4 )  ,  3,  1 )  II 
SUBSTR(WRPDA,2) ; 
GO  TO  machine; 

LPDA  =  SUBSTR(RULES(I,3),l,INDEX(RULES<I,3),«  ')-l)ll 
SUBSTR(WLPDA,2) ; 

RIGHIF  RULES<I,4)  =  •£  '  THEN  DO; 
RPDA  =  SUBSTR(WRPDA,2) ; 
GO  TO  MACHINE; 

RPDA  =  SUBSTR(RULES(I,4),1,INDEX(RULES(I,4),'  ')-l)ll 
SUBSTR(WRPDA,2) ; 
GO  TO  MACHINE; 

EPSILON: 

/*    EPSILON  TAKES  THE  REQUIRED  ACTION  FOR  PDA  WITH 
EPSILON  RULES. 

RPDA  =  WRPDA; 

LPDAE==SUBSTR(RULES(I,3)tL,INDEX(RULES(I,3),«  -1-11  I  I 
SUBSTR<WLPDA,2) ; 
GO  TO  MACHINE; 

/*    WHEN  THERE  ARE  NO  LONGER  ANY  APPLICABLE  RULE 
TO  APPLY  TO  A  STRING,  STUCK  IS  THt ROUTINE 
WHICH  DETERMINES  WHETHER  THE  STRING  IS  TO 
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BE  ACCEPTED  OR  REJECTED,  OR  IN  JHE  CASE  OF 
THE  PTM,  THAT  THE  FINAL  CONK  I  CURAT  ION  IS 
TO  BE  OUTPUT.   THE  CHECK  FOR  ACCEPTANCE  IS 
MADE  BY  CHECKING  TO  SEE  THAT  THE  cNTIRE 
INPUT  STRING  HAS  BEEN  PROCESSED  AND  THAT  THE 
FINITE  CONTROL  IS  IN  A  FINAL  STATE  OR  FOR  THE 
PDA  WITH  EMPTY  STORE,  THAT  THE  LEFT  STACK  IS 


IF  IPRO  =  1  THEN  DO; 
ICHK  =  o; 
GO  TO  PROD; 

TFNT^PD    =     «6'|TRPD    =   ■•#•    THEN    DO; 

IF  TYPE  =  'FA  •  THEN  GO  TO  CHKST; 

IF  TYPF  =  'PDA'  THEN  DO; 

IF  NEMPTY  =0  THEN  GO  TO  CHKST; 

IF  TLPD  =  •£•  THEN  GO  TO  POS; 

GO  TO  neg; 
END; 
CHKST:         _ 

D°    IF  STATE  =  FNST(I)  THEN  GO  TO  POS; 
END; 
^END; 

NEG:DISPLAY(« STRING  NOT  ACCEPTED'); 
GO  TO  rerun; 

one  • 

DISPLAYCSTRING  IS  ACCEPTED'); 

MEMORYv  RETREIVIMG  A  PREVIOUSLY  STORED 
mathinf   OR  CREATING  A  NFW  MACHINE.   IF  A 

RERUDISPLAYCTRY  ANOTHER  STRING?  (Y  OR  N)«)   REPLY(QUE); 
IF  QUE  =  «Y«  THEN  DO; 
FIRT  =  «  FIRST'; 
GO  TO  REPLAY; 

IF°QUE  -='N'  THEN  GO  TO  RERUN; 

8lSPLAYCWANT  TO  QUIT?  (Y  OR  N)M   REPLY(QUE); 

IF    QUE    =     «Y'     THEN    GO    TO    FIM; 

IF    QUE    -=    'N«     THEN    GO    TO    QUITS; 

DISPLAYCWANT    TO    STORE    PRESENT    MACHINE?    (Y    OR    N)') 

IFPQUEQ=E!n»  THEN  GO  TO  RETRIEVE; 

IF  QUE  -  =  'Y'  THEN  GO  TO  STOW; 

DISPLAYCGIVE  A  NAME  TO  THIS  MACHINE- I  REPLY(NAME); 

IF  NAME  =  •  '  THEN  GO  TO  NAMIT; 

IF  IFIRST  =  1  THEN  GO  TO  NXT.NODE; 

ALLOCATE  STORED  SET(FIRST); 

FIRST->SRULES  =  '   ; 

FIRST->SRULE  =     j 

FIRST->FNSTS  =  '  '  ; 

FIRST-MPO   =    ipro; 

FIRST->NAMES  =  NAME; 

FIRST->TYPES  =  TYPE; 
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FIRST->RSTATES  =  RSTATE; 
FIRST->NDET  =  NOND; 
FIRST->LEFTS  =  LEFT; 
FIRST->NEMPTYS  =  NEMPTY; 

^f^TTV^VHiLECRULESd,!)^'  -11 

D°    K    FIRS™>SRULES(I.K>     =    RULES(I,K>; 

FIRST->SRULE(I)  =  RULE(I); 
END; 

°°  !  FiHst2>?5s*SCI1  =  FNSTCI1I 

end; 
IFIRST  =  l; 
TT  =  FIRST; 
GO  TO  retrieve; 

NXT-^EdATE  stored;  ,  ,. 
P->SRULES  =  •  ■ ; 
P->SRULE=  ■  ■ ; 

p->fnsts  =  •  •; 

TT->NXT  =  P; 

tt  =  p; 

p->ipo  =  ipro; 
p->names  =  name; 
p->types  =  type; 
p->ndet  =  nond; 
p->lefts  =  left; 

P->RSTATES  =  RSTATE; 
P->NEMPTYS  =  NEMPTY; 

S5TI    1    TOL50    WHILE(RULES<I,1>  —  Ml 

D°    K    P->SRULES(I,K)     =    RULESII.K1S 

p->1rule(I)    =   RULE(I); 

°8°5    P-lflsAVl)    =    FNST(I); 
END; 
RETRDISPLAY(«WANT    TO    RETRIEVE    A    MACHINE?     IY    OR   NlM 
tfPQUFQ=E«N«    THEN    GO    TO    CREATE; 

{ JBr^fe  ssai  s?  »caaRE»fwiiPtv«N«E„ 

TT  =  FIRST; 
L°0KIF  TT->NAMES  =  NAME  THEN  GO  TO  FILL; 

IF  TTB?NSPLAY("NhLsJcHNMA8HINE  IN  STORAGE'); 
GO  TO  RETRIEVE; 
END; 

tt  =  tt->nxt; 
go  to  look; 

FILL:     TYPE  =  TT->TYPES; 

RSTATE  =  TT->RSTATES; 
NOND  =  tt->ndet; 
IPR0  =  tt->ipo; 

LEFT  =  TT->LEFTS;   r 

SET*  I  to"50Ewhile!tt->srules(i,i)-« 

D°  K  RULES(ltK)  =  TT->SRULES(I,K>; 
RULE! I)  =  TT->SRULE(I); 

DO°N  -  1  TO  10  WHILE(TT->FNSTS(N)  -'    M 
FNST(N)  =  TT->FNSTS(N); 

END; 
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IF 

TYPE  =  *FA 

(  ■ 

NODE 

IF 

TYPE  =  «TM 

(• 

NODE 

DISPLAYt « WANT  THE  RULES  DISPLAYED?  (Y  OR  N)«) 
REPLY(QUE)  ; 

IF  QUE  =  •Ni  THEN  GO  TO  RESTART; 
DO  N  =  1  TO  I-l; 
NUM  =  N; 
DISPLAY(NUM|  |  «  :  'IIRULE(N)); 
END; 
GO^TO  RESTART; 

DISPLAY( 'WANT  TO  CREATE  A  NEW  MACHINE?  (Y  OR  N)') 

REPLY(QUE) ; 

IF  QUE  =  «Y«  THEN  GO  TO  GETTING; 

IF  QUE  -.=  'N'  THEN  GO  TO  CREATE; 

NONDET:  PROC; 

/*    NONDET  IS  THE  PROCEDURE  WHICH  OPERATES  ON 

THE  NONDETERMINISTIC  AUTOMATA.  */ 

IF  ITRACE  =  2  THEN  DO; 

IF  TYPE  =  'PDA'  THEN  DISPLAY 

(•        NODE    STATE    PUSHDOWN         «  II 

■      INPUT  STRING1 ) ; 

THEN  DISPLAY 
STATE       INPUT  STRING' )  ; 

THEN  DISPLAY 
STATE    TAPE   '); 
END; 

DCL  1  NODE  BASED(B), 

/*    NODE  IS  THE  STRUCTURE  FOR  EACH  NODE  OF  THE 
TREE  WHICH  IS  CONSTRUCTED  TO  SOLVE  THE  NON- 
DETERMINISTIC  CASE.  */ 

2  S  STATE  CHAR(3) , 

2  S  PDA   CHAR(200)t 

2  S~RULE   PICTURE  ■ Z9« , 

2  PUSIT   FIXED  BINARY, 

2  NEXT  PTR, 

2  UP  PTR; 
IGOOD  =  0; 

ALLOCATE  NODE  SET(ROOT); 

/*    THE  ROOT  NODE  IS  COMPRISED  OF  THE  START  STATE, 
START  SYMBOL,  IF  ANY,  AND  THE  INPUT  STRING. 
THIS  IS  THE  INITIAL  CONFIGURATION.  */ 

ROOT->S_STATE  =  STATE; 
ROOT->S_PDA  =  LPDAMRPDA; 
ROOT->S_RULE  =  0; 
ROOT->POSIT  =  LENGTH(LPDA) ; 
ROOT->NEXT  =  NULL; 
ROOT->UP  =  NULL; 

D  =  root; 
e  =  d; 

IF  ITRACE  =  2  THEN  DO; 

IF  TYPE='PDA'  THEN  DC; 

LPDOWN  =  SUBSTR(LPDA,1,1);     ^^ ,  >obi 
RPDOWN  =  SUBSTR(RPDA,1T INDEX(RPDA, ' £•  -1 ) ; 
DISPLAY(NODNO|  |«      •  I  I  STATE |  |  '       '11 
LPDOWNl I RPDOWN) ; 


END 

j 

IF 

TYPE 

=  «FA 

THEN 

DO; 

LPDOWN  = 

1       1  ; 

RPDOWN  = 

SUBSTR(RP 

D) 

[SPLAY(NODNC 

i 

END 

; 

IF 

TYPE 

=  'TM 

1  THEN 

do; 
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RPDOWN  =  SUBSTR(RPDA,17INDEX(RPDA, »£■ )-l) ; 
DISPLAY(NODNO| I '       •  |  | ST  AT  E |  I  '     ->«||RPDOW 
END*, 
END; 

TOP: 

/*    TOP  CHECKS  FOR  ALL  APPLICABLE  RULES  FOR  A  GIVEN 
MACHINE  CONFIGURATION.   EACH  TIME  ONE  IS  FOUND 
THE  PROCFDURE  CHARGE  IS  CALLED.   UPON  RETURN- 
ING FROM  CHARGE  EACH  TIME,  A  CHECK  IS  MADE 
TO  DETERMINE  WHETHER  ACCEPTANCE  WAS  OBTAINED. 
IF  SO,  THE  PROPER  PRINT  ROUTINE  IS  CALLED  AS 
REQUIRED.   IF  ACCEPTANCE  HAS  NOT  BE  OBTAINED 
AND  NO  APPLICABLE  RULES  REMAIN  FOR  A  GIVEN 
CONFIGURATION,  THEN  THE  NEXT  NODE  IS  PROCESSED. 
IF  NO  NEW  NODES  REMAIN,  THEN  PROCESSING  WILL 
TERMINATE  AND  A  MESSAGE  PRINTED.  */ 

WLPDA  =  SUBSTR(D->S_PDA,l,D->POSIT) ; 
WRPDA  =  SUBSTR{D->S_PDA,D->POSIT+l); 
TLPD  =  SUBSTR(WLPDA, 1, L) ; 
TRPD  =  SUBSTR(WRPDA,1,1)  ;.  , 
CONFIG  =  D->S_STATE| |TLPD| |TRPD; 

IF  TYPE-»='PDA»  THEN  GO  TO  NOTPDA; 

IF  SUBSTR(RULES(I,1),5,1)  =  •£•  THEN  DO; 

IF  SUBSTR(RULES( 1,1), 1,3)  =  D->S  STATE  THEN  DO 
IF  SUBSTR(RULES(I, 11,4,1)  =  TLPD  THEN  CAL 

END; 
END; 
NOTPDA : 
IF  RULESU,1)  =  CONFIG  THEN  BEGIN; 

CALL  CHARGE;  n    Tiif_Ki  ^ 

IF  TYPE  =  'TM  '£  IPRO  =  C  THEN  DO; 

D0  JJ!p  b->S_STATE  =  FNST(JJ)  THEN  IGOOD 

end; 

IF  iGOOD  =  1  THEN  BEGIN; 

IF  ITRACE  =  1  THEN  CALL  LINKUP; 
DISPLAYCSTRING  ACCEPTED1); 

return; 
end; 
END; 

IF  6->NEXT=  NULL  THEN  BEGIN; 

DISPLAYCSTRING  NOT  ACCEPTED'); 

RETURN; 
END; 

D  =  D->NEXT; 
IF  NODNO  =  MAXNO  THEN  DO;       _  ™^™™.». 

DISPLAYCMAX  NUMBER  OF  NODES  EXCEEDED'); 

DISPLAYCWANT  TO  CHANGE  MAXIMUM?  (Y  OR  N)«) 

REPLY(QUE);  nPTIinil 

IF    QUE    =    'N'     THEN    RETURN; 

MAX3:DISPLAY('WHAT     IS    NEW    MAX?')     REPLY(MAXUM) ; 

IF     SUBSTR(MAXUM,1,1X'0'     THEN    GO    TO    MAX3; 

MAXNO    =    MAXUM; 
END; 
GO    TO    TOP; 

NONEPS:  PROC; 


THE  PROCEDURE  NONEPS  HANDLES  THE  EPSILON  RULES 
FOR  NONDETERMINISTIC  PUSHDOWN  AUTOMATA.       */ 


/* 

OR  NO 
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ALLOCATE  NODE; 

NODNO  =  NODNO  +  1; 

B->UP  =  D; 

E->NEXT  =  B; 

B->NEXT  =  NULL; 

E  =  B; 

B->S_STATE  =  RULES(I,2); 

B->S_RULE  =  I; 

RPDA  =  WRPDA; 

LPDA  =  SUBSTR(RULES( 1,3), 1, INDEX(RULES( 1,3), '  ')-l)|| 

SUBSTR(WLPDA,2) ; 

IF  INDEX(LPDA, »Q» )-=0  THEN  DO; 

LPDA  =  SUBSTR(LPDA,1,INDEX(LPDA, ■£■ )-l) ; 
END; 

B->S_PDA  =  LPDAI  i  RPDA; 
B->POSIT  =  LENGTH(LPDA) ; 
IF  ITRACE  =  2  THEN  DO; 

LPDOWN  =  SUBSTR(LPDA, L , L ENGTH( L PDA ) ) ; 

RPDOWN  =  SUBSTR(RPDA,1,INDEX(RPDA, •£• )-l) ; 

DISPLAY(NODNO| | •      • | j B->S_STATE I | •       »|| 

LPDCWNl IRPDOWN) ; 
END; 
END  NONEPS; 

CHARGE:  PROC ; 

/*    CHARGE  ALLOCATES  A  NEW  NODE  FOR  EACH  APPLICABLE 
RULE  FOR  SOME  PARTICULAR  CONFIGURATION.   IT 
OOES  THIS  IN  MUCH  THE  SAME  MANNER  AS  WAS 
DONE  IN  THE  DETERMINISTIC  CASE.     A  CHECK  IS 
ALSO  MADE  FOR  ACCEPTANCE  AT  THIS  LEVEL.   IF 
THE  USER  HAD  SELECTED  TO  SEE  ALL  OF  THE  NODES 
DISPLAYED  AS  THEY  ARE  ALLOCATED,  THIS  IS  THE 
SECTION  WHICH  WILL  CAUSE  THE  PRINTOUT.        */ 

ALLOCATE  NODE; 

NODNO  =  NODNO  +  1; 

B->UP  =  D; 

E->NEXT  =  B; 

B->NEXT  =  NULL; 

E  =  b; 

B->S_STATE  =  RULES(I,2); 

B->S  RULE  =  I; 

IF  RDLES( 1,3)  =  f &  •  THEN  DO; 

LPDA  =  SUBSTR(WLPDA,2) ; 

GO  TO  CIGHT; 
END; 
IF  RULES(I,3)  =  •£&'  THEN  DO; 

LPDA  =  •#« | I SUBSTR(WLPDAT3) ; 

RPDA  =  SUBSTR(WLPDA,2,1 ) j | SUBSTR( RUL ES ( I, 4), 3, 1) | | 

SUBSTR(WRPDA,2) ; 

GO  TO  CACHINE; 
END; 

LPDA  =  SUBSTR(RULES( I ,3) , 1 , I NDEX( RULE S ( I ,3) , ■  «)-l)|| 
SUBSTR(WLPDA,2) ; 
CIGHT: 

IF  RULES(I,4)  =  •£  '  THEN  DO; 

RPDA  =  SUBSTR(WRPDA,2) ; 

GO  TO  CACHINE; 
END; 

RPDA  =  SUBSTR(RULES( 1,4) , 1 , I NDEX ( RUL E S ( I , 4 ) , '  «)-l)|| 
SUBSTR(WRPDA,2) ; 
CACHINE: 

B->S  PDA  =  LPDAI |RPDA; 

B->PDSIT  =  LENGTH(LPDA) ; 

TLPDN  =  SUBSTR(LPDA, 1,1) ; 

TRPDN  =  SUBSTR(RPDA, 1,1) ; 

IF  TRPDN  =  «£'|TRPDN=  •#•  THEN  DO; 
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IF  TYPE  =  "FA  ■  THEN  GO  TO  CKST; 

IF  TYPE  =  •PDA'  THEN  DO; 

IF  NEMPTY  =  0  THEN  GO  TO  CKST; 

IF  TLPDN  =  »£■  THEN  IGOOD  =  L; 
END; 
NODOUT: 

IF  ITRfFESUBSTRVB->S_PDA,ia)  =  '&',  THEN  LPDOWN  =  •   £•; 

IF  SUBSTR(B->S  PDA,1,1   =  ■  •  THtN  LPDOWN  =  •   &•; 
LPDOWN  1  SUBSTK(B->S>OAfl.  INDEXt  B->S_PDA ,'£•>- 1 ) 
RPDOWN  =  SUBSTR(B->S  PDAf8->POSIT+l); 
IF  SUBSTR(  RPDOWN  ,l,lT='(;'  |  SUBSTR  (  RPDOWN  ,  L ,  1 )  ='  #• 

RPDOWNP2°SUBSTR( RPDOWN, 1, I NDEX( RPDOWN, «£«)-l); 
IF  TYPE  =  'FA  '  THEN  DO; 

DISPLAY(NODNO|  |«      «  I  I B->S_STATE |  |  ■ 

RPDOWN) ; 

RETURN; 

^is^^OO^H.005  MI8->S_STATE.|.       Ml 

LPDOWNl | RPDOWN) ; 
RETURN; 

IF  TYPF  =  »TM  '  THEN  DO; 

X=  SUBSTR(LPD0WN,2,INDEX(LPD0WN,«  «)-l); 

len  =  length(x); 
do  l  =  1  to  len/2; 

substr(xIl(,i)L^substr(x,len-l+i,i); 

SUBSTR(X,LEN-L+lil)     =    T; 
X^SUBSTRtXtlNDEXU,'^  )+l) 


TDfspLlvUiDNSi!!RPD0^i.B->S.STATE||.  MIT 


RETURN 

» 

END 

; 

END; 

CKST 

DO  L 

=  1  TO 

nf; 

IF  B->S_ 

STATE 

=  FNST(L) 

END; 

END; 

IF  ITRACE 

=  2  THEN 

GO 

TO 

NODOUT; 

END 

CHARGE; 

THEN    IGOOD    =    1 


LINKUP:    PROC; 

/*  I  TNKUP     IS    THE    PROCEDURE    BY    WHICH    A    PRINTOUT    OF 

'  THE     SOLUTION    PATH    THROUGH    THE    TREE     IS    HADE. 


THE    TREE     IS    TRAVERSED    FIRST    FROM    THE     SOLUTION 
NODE    TO    THE    rSSt  ,     BY    MEANSOF    THE    POINTERS 
Tn    thf    PREDECESSOR    NODE.       AS    THE    TREE    IS 


cACH 

NODE  ALONG  THE  WAY.   THE  PRINTOUT  WILL  BE 
IN  THE  FORM  CORRESPONDING  TO  THE  TYPE  OF 
MACHINE  WHICH  THE  USER  HAD  SPECIFIED.         */ 


LINK 


NC  =  o; 
D->NEXT  =  E; 

IF=D-^UP  =  NULL  THEN  GO  TO  STARTDOWN; 
D  =  d->up; 
GO  TO  link; 
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IF  TYPE  =  'FA  '  THEN  GO  TO  FA  DOWN; 

IF  TYPE  =  •PDA1  THEN  GO  TO  PD7LDOWN; 

IF  TYPE  =  "TM  '  THEN  GO  TO  TM_DOWN; 
RETURN; 

FA~DRPDOWN  =  SUBSTR(D->S_PDA,D->POSIT+l) ; 

RPDOWN  =  SUBSTR(RPDOWN,l,INDEX  RPDCWN.JG  »-l»; 

DISPLAY(NC|  I  «      '  I  I D->S_RULE|  I  8      ■ I  I D->S_STATE II 

•      • | IRPDOWN) ; 

IF  D->NEXT  =  NULL  THEN  GO  TO  OUT; 

D  =  D->NEXT; 

NC  =  NC  +  l; 

GO  TO  fa_down; 

PDAJIFWSUBSTR(D->S_PDA,1,1)  =  '£'  THEN  LPDOWN  =  J    LW 

?FPDrBSTR^^  -  <«' 

RPDOWNP20SUBSTR(RPDOWN,l,INDEX(RP^ 

DISPLAYING! I f       '  I  |D->S_RULE|  I ■        I  I D->S_STAT 1 1  | 

«    • | |LPDOWN| IRPDOWN) ; 

IF  D->NEXT  =  NULL  THEN  GO  TO  OUT; 

D  =  D->NEXT; 

NC  =  NC  +  i; 

GO  TO  PDA_DOWN; 

™-DRPDOWN  =  SUBSTR(D->S_PDAtD->POSIT+l);        . 

RPDOWN  =  SUBSTR(RPDOflN,l,INDEX(RPDCWN,«£«)-li; 

X  =  SUBSTR(D->S_PDA,2»D->P0SIT)  ; 

LEN  =  LENGTHIX) ; 

DO  I  =  1  TO  LEN/2; 

T  =  SUBSTR(X,  If  1-1  ;  k,,';,i 

SUBSTR(X,I,1)  =  SUBSTR(X,LEN-I+1,1); 
SUBSTR(X,LEN-I+1,1 )  =  T; 

X^'sUBSTRCXflNDEXCXf'C1  )); 

MSpLlY?J!.i]^,,,RP?W8i>S.RULEl|.      .|.D->S_STATE|| 

■    » I  TAPFI; 

IF  D->NEXT"=  NULL  THEN  GO  TO  OUT; 

D  =  D->NEXT; 

NC  =  NC  +  l; 

GO  TO  tm_down; 
OUT: 
END  LINKUP; 
FINI:  END  GOLD; 
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